home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / basic / apbsu100.zip / START.ASI < prev    next >
Text File  |  1991-12-22  |  19KB  |  936 lines
  1. start:
  2.  
  3. rem This version of START.COM is for the ApBASIC 1.7 Support Disk.
  4.  
  5. rem It requires approximately 68K of available RAM.
  6.  
  7. rem First, initialize the Esc key.  This is necessary when using parameters,
  8. rem because the menus are bypassed at first, which is where the Esc key would 
  9. rem otherwise be itialized.
  10.  
  11. b$=chr$(27)
  12.  
  13. rem Next, initialize the space bar.
  14.  
  15. e$=chr$(32)
  16.  
  17. rem Here is the routine for reading parameters from the DOS prompt.
  18.  
  19. a$=command$
  20. if a$=" /?" then help:
  21. if a$=" /v" then listfile:
  22. if a$=" /V" then listfile:
  23. if a$=" /r" then readfile:
  24. if a$=" /R" then readfile:
  25. if a$=" /p" then printdoc:
  26. if a$=" /P" then printdoc:
  27. if a$=" /d" then donation:
  28. if a$=" /D" then donation:
  29. if a$=" /40" then option40:
  30. if a$=" /40 ?" then help40:
  31. if a$=" /40 v" then listfl40:
  32. if a$=" /40 V" then listfl40:
  33. if a$=" /40 r" then rdfile40:
  34. if a$=" /40 R" then rdfile40:
  35. if a$=" /40 p" then prfile40:
  36. if a$=" /40 P" then prfile40:
  37. if a$=" /40 d" then donate40:
  38. if a$=" /40 D" then donate40:
  39.  
  40. rem If no parameters, begin from the beginning.
  41.  
  42. cls
  43. print "                       The ApBASIC 1.7 Support Disk 1.00"
  44. print
  45. print
  46. print "                                by Matt Roberts"
  47. print "                               3 Cedar St., # 8"
  48. print "                           Montpelier, Vt 05602-3006"
  49. print "                                 (802)223-2553"
  50. print
  51. print
  52. print "If you have trouble using this disk, and the documentation doesn't"
  53. print "seem to help, you can call between 9AM and 9PM EST, and I'll try to"
  54. print "help.  Keep trying."
  55. print
  56. print
  57. print "If you find the files on this disk useful, a donation of $5.00 would"
  58. print "be greatly appreciated."
  59. print
  60. print "Of course, if there's work by other authors on the disk, the $5.00"
  61. print "doesn't cover them.  Thanks for your understanding."
  62. print
  63. print
  64. print "Press any key to continue. ";
  65. gosub continue:
  66.  
  67. options:
  68. cls
  69. print "You have the following options:"
  70. print
  71. print
  72. print "F1- View a list of the files on this disk."
  73. print
  74. print "F2- View the text file of your choice, on the screen."
  75. print
  76. print "F3- Print the text file of your choice."
  77. print
  78. print "F4- Shell to DOS."
  79. print
  80. print "F5- Change to 40-column mode (larger text; probably most useful for"
  81. print "the visually impaired)."
  82. print
  83. print "F6- See a list of the parameters you can use from the DOS prompt."
  84. print
  85. print "Esc- Return to DOS."
  86. print
  87. print
  88. print "Please press the key corresponding to your choice. ";
  89.  
  90. wait1:
  91. gosub continue:
  92. if a$=b$ then finish:
  93. if extended=1 then readext:
  94. goto wait1:
  95.  
  96. rem This routine reads the keyboard, accepting only F1-F6 and the Esc key as
  97. rem valid inputs.
  98.  
  99. readext:
  100. if a$=";" then listfile:
  101. if a$="<" then readfile:
  102. if a$="=" then printdoc:
  103. if a$=">" then shell:
  104. if a$="?" then option40:
  105. if a$="@" then help:
  106. goto wait1:
  107.  
  108. rem Here is the routine for seeing a list of the files on this disk.
  109.  
  110. listfile:
  111. cls
  112. print "Here are the files on this disk:"
  113. print
  114. print
  115. print "DARKSCRN.BAS- The ApBASIC 1.7 source code for DARKSCRN.EXE."
  116. print
  117. print "DARKSCRN.EXE- A screen blanker, used from the DOS prompt."
  118. print
  119. print "DISPLAY.BAS- An ApBASIC module to display text files on the screen."
  120. print
  121. print "FILE-MAN.BAS- The ApBASIC 1.7 source code for FILE-MAN.EXE."
  122. print
  123. print "FILE-MAN.DOC- The documentation for FILE-MAN.EXE."
  124. print
  125. print "FILE-MAN.EXE- The ApBASIC 1.7 File Manager."
  126. print
  127. print "LIST.COM- A neat utility by Vern Buerg; displays files on the screen."
  128. print
  129. print "LIST.DOC- The documentation for LIST.COM."
  130. print
  131. print "LOOSWARE.DOC- Notes on the looseware concept."
  132. print
  133. print
  134. print "Press any key to continue. ";
  135. gosub continue:
  136. cls
  137. print "START.ASI- The ASIC source code for START.COM."
  138. print
  139. print "START.COM- The file you're using right now."
  140. print
  141. print
  142. print "Press any key to return to the Main Options Menu. ";
  143. gosub continue:
  144. goto options:
  145.  
  146. rem Here is the routine for viewing text files on the screen.
  147.  
  148. readfile:
  149. cls
  150. print "To move forward in the file(s) you are about to view, press PgDn."
  151. print
  152. print "To move back, press PgUp."
  153. print
  154. print "To exit the file, press Esc."
  155. print
  156. print
  157. print "Press any key to see the menu of files."
  158. gosub continue:
  159. readmenu:
  160. cls
  161. print "Here are the files you can view:"
  162. print
  163. print
  164. print "A- DARKSCRN.BAS"
  165. print
  166. print "B- DISPLAY.BAS"
  167. print
  168. print "C- FILE-MAN.BAS"
  169. print
  170. print "D- FILE-MAN.DOC"
  171. print
  172. print "E- LIST.DOC"
  173. print
  174. print "F- LOOSWARE.DOC"
  175. print
  176. print "G- START.ASI"
  177. print
  178. print "Esc- Return to the Main Options Menu."
  179. print
  180. print
  181. print "Please press the key corresponding to your choice. ";
  182. gosub continue:
  183. if a$=b$ then options:
  184. print a$;
  185. if a$="g" then readstar:
  186. if a$="G" then readstar:
  187. if a$="f" then readloos:
  188. if a$="F" then readloos:
  189. if a$="e" then readlist:
  190. if a$="E" then readlist:
  191. if a$="d" then readfild:
  192. if a$="D" then readfild:
  193. if a$="c" then readfilb:
  194. if a$="C" then readfilb:
  195. if a$="b" then readdisb:
  196. if a$="B" then readdisb:
  197. if a$="a" then readdarb:
  198. if a$="A" then readdarb:
  199. goto readmenu:
  200.  
  201. readdarb:
  202. call ("list.com"," darkscrn.bas")
  203. goto readmenu:
  204. readdisb:
  205. call ("list.com"," display.bas")
  206. goto readmenu:
  207. readfilb:
  208. call ("list.com"," file-man.bas")
  209. goto readmenu:
  210. readfild:
  211. call ("list.com"," file-man.doc")
  212. goto readmenu:
  213. readlist:
  214. call ("list.com"," list.doc")
  215. goto readmenu:
  216. readloos:
  217. call ("list.com"," loosware.doc")
  218. goto readmenu:
  219. readstar:
  220. call ("list.com"," start.asi")
  221. goto readmenu:
  222.  
  223. rem Here is the routine for printing text files.
  224.  
  225. printdoc:
  226. cls
  227. print "Please ready your printer; press any key to see the menu of files. ";
  228. gosub continue:
  229.  
  230. printmen:
  231. cls
  232. print "Here are the files you can print:"
  233. print
  234. print
  235. print "A- DARKSCRN.BAS"
  236. print
  237. print "B- DISPLAY.BAS"
  238. print
  239. print "C- FILE-MAN.BAS"
  240. print
  241. print "D- FILE-MAN.DOC"
  242. print
  243. print "E- LIST.DOC"
  244. print
  245. print "F- LOOSWARE.DOC"
  246. print
  247. print "G- START.ASI"
  248. print
  249. print "Esc- Return to the Main Options Menu."
  250. print
  251. print
  252. print "Please press the key corresponding to your choice. ";
  253.  
  254. wait5:
  255. gosub continue:
  256. if a$=b$ then options:
  257. if a$="g" then printsta:
  258. if a$="G" then printsta:
  259. if a$="f" then printloo:
  260. if a$="F" then printloo:
  261. if a$="e" then printlis:
  262. if a$="E" then printlis:
  263. if a$="d" then printfid:
  264. if a$="D" then printfid:
  265. if a$="c" then printfib:
  266. if a$="C" then printfib:
  267. if a$="b" then printdib:
  268. if a$="B" then printdib:
  269. if a$="a" then printdab:
  270. if a$="A" then printdab:
  271. goto wait5:
  272.  
  273. printdab:
  274. file$="darkscrn.bas"
  275. gosub printfil:
  276. goto printmen:
  277.  
  278. printdib:
  279. file$="display.bas"
  280. gosub printfil:
  281. goto printmen:
  282.  
  283. printfib:
  284. file$="file-man.bas"
  285. gosub printfil:
  286. goto printmen:
  287.  
  288. printfid:
  289. file$="file-man.doc"
  290. gosub printfil:
  291. goto printmen:
  292.  
  293. printlis:
  294. file$="list.doc"
  295. gosub printfil:
  296. goto printmen:
  297.  
  298. printloo:
  299. file$="loosware.doc"
  300. gosub printfil:
  301. goto printmen:
  302.  
  303. printsta:
  304. file$="start.asi"
  305. gosub printfil:
  306. goto printmen:
  307.  
  308.  
  309. rem Here is the routine for printing a file.
  310.  
  311. printfil:
  312. cls
  313. f$=chr$(12)
  314. open "i",1,file$
  315.  
  316. if error=2 then
  317. print ""
  318. print ""
  319. print "File not found."
  320. print
  321. print
  322. print "Press any key to continue. ";
  323. gosub continue:
  324. close 1
  325. return
  326. endif
  327.  
  328. heading:
  329. cls
  330. print "Printing...";
  331. realfile$=ucase$(file$)
  332. color 0,7
  333. print realfile$
  334. color 7,0
  335. print
  336. print
  337. print "Press space bar to pause printing, or Esc to quit."
  338. print
  339. print
  340.  
  341. printmor:
  342. input# 1, line$ crlf
  343.  
  344. if error=96 then
  345. lprint line$
  346. goto blanklin:
  347. endif
  348.  
  349. contlprn:
  350. lprint line$
  351.  
  352. a$=inkey$
  353.  
  354. if a$=b$ then
  355. print "Printing has been terminated.  The printer may still have data in its"
  356. print "buffer.  If so, it will continue printing until the buffer is empty."
  357. print
  358. lprint f$
  359. close 1
  360. file$=""
  361. print "Press any key to continue. ";
  362. gosub continue:
  363. return
  364. endif
  365.  
  366. if a$=e$ then pause: else nopause:
  367.  
  368. pause:
  369.  
  370. print "Press any key to resume printing. ";
  371.  
  372. pausemor:
  373. a$=inkey$
  374. if a$="" then pausemor:
  375. a$=""
  376. goto heading:
  377.  
  378. nopause:
  379. if error=99 then eofp:
  380. goto printmor:
  381.  
  382. blanklin:
  383. input# 1, line$ crlf
  384. if line$="" then printmor: else contlprn:
  385.  
  386. eofp:
  387. lprint line$
  388. print "Finished."
  389. print
  390. close 1
  391. lprint f$
  392. print "Press any key to continue. ";
  393. gosub continue:
  394. return
  395.  
  396.  
  397. rem This is the end of the routine for printing text files.
  398.  
  399.  
  400. rem Here is the routine for shelling to DOS.
  401.  
  402. shell:
  403. cls
  404. print "On which drive is your COMMAND.COM (don't type the colon)? ";
  405. gosub continue:
  406. path1$=a$+":"
  407. path2$=path1$+"\"
  408. path3$=path2$+"command.com"
  409. cls
  410. print "Use the DOS command EXIT to return to START.COM."
  411. print
  412. call path3$,""
  413. goto options:
  414.  
  415. rem Here is the routine for changing to 40-column width.
  416.  
  417. option40:
  418. width 40
  419. print "You have the following options:"
  420. print
  421. print
  422. print "F1- View a list of the files on this"
  423. print "disk."
  424. print
  425. print "F2- View the text file of your choice,"
  426. print "on the screen."
  427. print
  428. print "F3- Print the text file of your"
  429. print "choice."
  430. print
  431. print "F4- Shell to DOS."
  432. print
  433. print "F5- Return to 80-column mode."
  434. print
  435. print "F6- See a list of the parameters you"
  436. print "use from the DOS prompt."
  437. print
  438. print "Esc- Return to DOS."
  439. print
  440. print
  441. print "Please press the key corresponding to"
  442. print "your choice. ";
  443.  
  444. wait2:
  445. gosub continue:
  446. if a$=b$ then finish:
  447. if extended=1 then rdext40:
  448. goto wait2:
  449.  
  450. rdext40:
  451. if a$=";" then listfl40:
  452. if a$="<" then rdfile40:
  453. if a$="=" then prfile40:
  454. if a$=">" then shell40:
  455. if a$="?" then width80:
  456. if a$="@" then help40:
  457. goto wait2:
  458.  
  459. rem Here is the routine for listing files in 40-column mode.
  460.  
  461. listfl40:
  462. width 40
  463. print "Here are the files on this disk:"
  464. print
  465. print
  466. print "DARKSCRN.BAS- The ApBASIC 1.7 source"
  467. print "code for DARKSCRN.EXE."
  468. print
  469. print "DARKSCRN.EXE- A screen blanker, used"
  470. print "from the DOS prompt."
  471. print
  472. print "DISPLAY.BAS- An ApBASIC module for"
  473. print "displaying a file on the screen."
  474. print
  475. print "FILE-MAN.BAS- The ApBASIC 1.7 source"
  476. print "code for FILE-MAN.EXE."
  477. print
  478. print "FILE-MAN.DOC- The documentation for"
  479. print "FILE-MAN.EXE."
  480. print
  481. print "FILE-MAN.EXE- The ApBASIC 1.7 File"
  482. print "Manager."
  483. print
  484. print
  485. print "Press any key to continue. ";
  486. gosub continue:
  487. cls
  488. print "LIST.COM- A neat utility by Vern"
  489. print "Buerg; displays files on the screen."
  490. print
  491. print "LIST.DOC- The documentation for"
  492. print "LIST.COM."
  493. print
  494. print "LOOSWARE.DOC- Notes on the looseware"
  495. print "concept."
  496. print
  497. print "START.ASI- The ASIC source code"
  498. print "for START.COM."
  499. print
  500. print "START.COM- The file you're using right"
  501. print "now."
  502. print
  503. print
  504. print "Press any key to return to the Main"
  505. print "Options Menu. ";
  506. gosub continue:
  507. goto option40:
  508.  
  509.  
  510. rem Here is the routine for viewing files on the screen in 40-column mode.
  511. rdfile40:
  512. width 40
  513. print "To move forward in the file(s) you are"
  514. print "about to view, press PgDn."
  515. print
  516. print "To move back, press PgUp."
  517. print
  518. print "To move to the side, use the arrow"
  519. print "keys."
  520. print
  521. print "To exit the document, press Esc."
  522. print
  523. print
  524. print "Press any key to see the menu of"
  525. print "files. ";
  526. gosub continue:
  527.  
  528. rdmenu40:
  529. cls
  530. print "Here are the files you can view:"
  531. print
  532. print "A- DARKSCRN.BAS"
  533. print
  534. print "B- DISPLAY.BAS"
  535. print
  536. print "C- FILE-MAN.BAS"
  537. print
  538. print "D- FILE-MAN.DOC"
  539. print
  540. print "E- LIST.DOC"
  541. print
  542. print "F- LOOSWARE.DOC"
  543. print
  544. print "G- START.ASI"
  545. print
  546. print "Esc- Return to the Main Options Menu."
  547. print
  548. print
  549. print "Please press the key corresponding to"
  550. print "your choice. ";
  551. gosub continue:
  552. if a$=b$ then option40:
  553. print a$;
  554. if a$="g" then rdstar40:
  555. if a$="G" then rdstar40:
  556. if a$="f" then rdloos40:
  557. if a$="F" then rdloos40:
  558. if a$="e" then rdlist40:
  559. if a$="E" then rdlist40:
  560. if a$="d" then rdfild40:
  561. if a$="D" then rdfild40:
  562. if a$="c" then rdfilb40:
  563. if a$="C" then rdfilb40:
  564. if a$="b" then rddisb40:
  565. if a$="B" then rddisb40:
  566. if a$="a" then rddarb40:
  567. if a$="A" then rddarb40:
  568. goto rdmenu40:
  569. rddarb40:
  570. call ("list.com"," darkscrn.bas")
  571. goto rdmenu40:
  572. rddisb40:
  573. call ("list.com"," display.bas")
  574. goto rdmenu40:
  575. rdfilb40:
  576. call ("list.com"," file-man.bas")
  577. goto rdmenu40:
  578. rdfild40:
  579. call ("list.com"," file-man.doc")
  580. goto rdmenu40:
  581. rdlist40:
  582. call ("list.com"," list.doc")
  583. goto rdmenu40:
  584. rdloos40:
  585. call ("list.com"," loosware.doc")
  586. goto rdmenu40:
  587. rdstar40:
  588. call ("list.com"," start.asi")
  589. goto rdmenu40:
  590.  
  591.  
  592. rem Here is the routine for printing files from the 40-column menu.
  593.  
  594. prfile40:
  595. width 40
  596. print "Please ready your printer; press any"
  597. print "key to see the menu of files. ";
  598. gosub continue:
  599.  
  600. prmenu40:
  601. cls
  602. print "Here are the files you can print:"
  603. print
  604. print
  605. print "A- DARKSCRN.BAS"
  606. print
  607. print "B- DISPLAY.BAS"
  608. print
  609. print "C- FILE-MAN.BAS"
  610. print
  611. print "D- FILE-MAN.DOC"
  612. print
  613. print "E- LIST.DOC"
  614. print
  615. print "F- LOOSWARE.DOC"
  616. print
  617. print "G- START.ASI"
  618. print
  619. print "Esc- Return to the Main Options Menu."
  620. print
  621. print
  622. print "Please press the key corresponding to"
  623. print "your choice. ";
  624.  
  625. wait6:
  626. gosub continue:
  627. if a$=b$ then option40:
  628. if a$="g" then prstar40:
  629. if a$="G" then prstar40:
  630. if a$="f" then prloos40:
  631. if a$="F" then prloos40:
  632. if a$="e" then prlist40:
  633. if a$="E" then prlist40:
  634. if a$="d" then prfild40:
  635. if a$="D" then prfild40:
  636. if a$="c" then prfilb40:
  637. if a$="C" then prfilb40:
  638. if a$="b" then prdisb40:
  639. if a$="B" then prdisb40:
  640. if a$="a" then prdarb40:
  641. if a$="A" then prdarb40:
  642. goto wait6:
  643.  
  644. prdarb40:
  645. file$="darkscrn.bas"
  646. gosub prndoc40:
  647. goto prmenu40:
  648.  
  649. prdisb40:
  650. file$="display.bas"
  651. gosub prndoc40:
  652. goto prmenu40:
  653.  
  654. prfilb40:
  655. file$="file-man.bas"
  656. gosub prndoc40:
  657. goto prmenu40:
  658.  
  659. prfild40:
  660. file$="file-man.doc"
  661. gosub prndoc40:
  662. goto prmenu40:
  663.  
  664. prlist40:
  665. file$="list.doc"
  666. gosub prndoc40:
  667. goto prmenu40:
  668.  
  669. prloos40:
  670. file$="loosware.doc"
  671. gosub prndoc40:
  672. goto prmenu40:
  673.  
  674. prstar40:
  675. file$="start.asi"
  676. gosub prndoc40:
  677. goto prmenu40:
  678.  
  679.  
  680. rem Here is the routine for printing a file in 40-column mode.
  681.  
  682. prndoc40:
  683. cls
  684. f$=chr$(12)
  685. open "i",1,file$
  686.  
  687. if error=2 then
  688. print ""
  689. print ""
  690. print "File not found."
  691. print
  692. print
  693. print "Press any key to continue. ";
  694. gosub continue:
  695. close 1
  696. return
  697. endif
  698.  
  699. headng40:
  700. cls
  701. print "Printing...";
  702. realfile$=ucase$(file$)
  703. color 0,7
  704. print realfile$
  705. color 7,0
  706. print
  707. print
  708. print "Press space bar to pause printing, or"
  709. print "Esc to quit."
  710. print
  711. print
  712.  
  713. prntmr40:
  714. input# 1, line$ crlf
  715.  
  716. if error=96 then
  717. lprint line$
  718. goto blnkln40:
  719. endif
  720.  
  721. contpr40:
  722. lprint line$
  723.  
  724. a$=inkey$
  725.  
  726. if a$=b$ then
  727. print "Printing has been terminated.  The"
  728. print "printer may still have data in its"
  729. print "buffer.  If so, it will continue"
  730. print "printing until the buffer is empty."
  731. print
  732. lprint f$
  733. close 1
  734. file$=""
  735. print "Press any key to continue. ";
  736. gosub continue:
  737. return
  738. endif
  739.  
  740. if a$=e$ then pause40: else nopaus40:
  741.  
  742. pause40:
  743.  
  744. print "Press any key to resume printing. ";
  745.  
  746. pausmr40:
  747. a$=inkey$
  748. if a$="" then pausmr40:
  749. a$=""
  750. goto headng40:
  751.  
  752. nopaus40:
  753. if error=99 then eofp40:
  754. goto prntmr40:
  755.  
  756. blnkln40:
  757. input# 1, line$ crlf
  758. if line$="" then prntmr40: else contpr40:
  759.  
  760. eofp40:
  761. lprint line$
  762. print "Finished."
  763. print
  764. close 1
  765. lprint f$
  766. print "Press any key to continue. ";
  767. gosub continue:
  768. return
  769.  
  770. rem This is the end of the routine for printing a file in 40-column mode.
  771. rem Here is the routine for shelling to DOS in 40-column mode.
  772.  
  773. shell40:
  774. width 40
  775. print "On which drive is your COMMAND.COM?"
  776. print "(Don't type the colon.) ";
  777. gosub continue:
  778. path1$=a$+":"
  779. path2$=path1$+"\"
  780. path3$=path2$+"command.com"
  781. cls
  782. print "Use the DOS command EXIT to return to"
  783. print "START.COM."
  784. print
  785. call path3$,""
  786. goto option40:
  787.  
  788. rem Here is the routine for returning to 80-column mode.
  789. width80:
  790. width 80
  791. goto options:
  792.  
  793. rem Here is the routine for listing the parameters for 40-column mode.
  794. help40:
  795. width 40
  796. print "You can use parameters with START.COM;"
  797. print "they may save you some time."
  798. print
  799. print "These screens deal with parameters"
  800. print "used in 40-column mode; to see a list"
  801. print "of parameters for 80-column mode,"
  802. print "select that option from the 80-column"
  803. print "menu, or type START /? from DOS."
  804. print
  805. print ""
  806. print "Typing START /40 will put you into"
  807. print "40-column mode (you're using it now)."
  808. print
  809. print "Typing START /40 ? will give you these"
  810. print "help screens."
  811. print
  812. print "Typing START /40 V will let you view a"
  813. print "list of the files on this disk."
  814. print
  815. print "Typing START /40 R will let you read"
  816. print "your file of choice, on the screen."
  817. print
  818. print
  819. print "Press any key to continue. ";
  820. gosub continue:
  821. cls
  822. print "Typing START /40 P will let you print"
  823. print "the file of your choice."
  824. print
  825. print "Either upper or lower case is fine."
  826. print
  827. print
  828. print "Do you want to ";
  829. color 0,15
  830. print "C";
  831. color 7,0
  832. print "ontinue with START.COM"
  833. print "or return to ";
  834. color 0,15
  835. print "D";
  836. color 7,0
  837. print "OS? ";
  838.  
  839. wait3:
  840. gosub continue:
  841. if a$="c" then option40:
  842. if a$="C" then option40:
  843. if a$="d" then finish:
  844. if a$="D" then finish:
  845. goto wait3:
  846.  
  847. rem Here is the routine for showing the parameters that can be used in 80-
  848. rem column mode.
  849.  
  850. help:
  851. cls
  852. print "You can use parameters with START.COM; they may save you time."
  853. print
  854. print "This screen describes the parameters you can use in 80-column mode; to"
  855. print "see the list of parameters for 40-column mode, choose that option from"
  856. print "the 40-column menu, or type START /40 ? from the DOS prompt."
  857. print
  858. print
  859. print "Typing START /? from the DOS prompt will get you this screen."
  860. print
  861. print "Typing START /V will let you view a list of the files on this disk."
  862. print
  863. print "Typing START /R will let you read the text file of your choice, on the"
  864. print "screen."
  865. print
  866. print "Typing START /P will let you print the text file of your choice."
  867. print
  868. print "Either upper or lower case is fine."
  869. print
  870. print
  871. print "Do you want to ";
  872. color 0,15
  873. print "C";
  874. color 7,0
  875. print "ontinue with START.COM or return to ";
  876. color 0,15
  877. print "D";
  878. color 7,0
  879. print "OS? ";
  880.  
  881. wait4:
  882. gosub continue:
  883. if a$="c" then options:
  884. if a$="C" then options:
  885. if a$="d" then finish:
  886. if a$="D" then finish:
  887. goto wait4:
  888.  
  889. rem Here is the routine for giving the address for donations.
  890.  
  891. donation:
  892. cls
  893. print "You can send donations to:"
  894. print
  895. print
  896. print "Matt Roberts"
  897. print "3 Cedar St., # 8"
  898. print "Montpelier, Vt 05602-3006"
  899. print
  900. print
  901. print "Thanks."
  902. print
  903. print
  904. end
  905.  
  906. rem Here is the donations routine in 40-column mode.
  907.  
  908. donate40:
  909. width 40
  910. print "You can send donations to:"
  911. print
  912. print
  913. print "Matt Roberts"
  914. print "3 Cedar St., # 8"
  915. print "Montpelier, Vt 05602-3006"
  916. print
  917. print
  918. print "Thanks."
  919. print
  920. print
  921. end
  922.  
  923. rem Here is the routine for waiting for the user to press a key.
  924.  
  925. continue:
  926. wait:
  927. a$=inkey$
  928. if a$="" then wait:
  929. return
  930.  
  931. rem Here is the routine for ending the program.
  932.  
  933. finish:
  934. cls
  935. end
  936.